home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
UTIL
/
Alpha 6.5.sit
/
Tcl
/
Menus
/
toolboxAssistMenu.tcl
< prev
Wrap
Text File
|
1996-08-15
|
2KB
|
85 lines
#================================================================================
# QuickViewェ Toolbox Assistant Help
#================================================================================
if $startingUp {
set toolboxRefMenu "・400"
addMenu toolboxRefMenu
return
}
proc toolboxRefMenu {} {}
menu -m -n $toolboxRefMenu -p toolboxProc {
"Goto Reference"
"(-"
"Display Trap Template"
"Insert Trap Template"
"/L<O<ULookup Trap"
}
proc toolboxProc {menu item} {
switch $item {
"Goto Reference" { gotoTBReference }
"Display Trap Template" { displayTBTrapTemplate }
"Insert Trap Template" { insertTBTrapTemplate }
"Lookup Trap" { lookupTBTrap }
}
}
set lastTrap {}
proc insertTBTrapTemplate {} {
global lastTrap
if {![string length [checkRunning QuickViewェ ALTV tassPath]]} return
set text [getSelect]
if {![string length $text]} {
if {[catch {prompt "Trap name:" $lastTrap} text]} return
} else {
deleteText [getPos] [selEnd]
}
set lastTrap $text
set res [AEBuild -r {'ALTV'} DanR {TMPL} "----" "メ$textモ"]
regexp {メ.*モ} $res one
insertText [string trim $one {メモ}]
}
proc displayTBTrapTemplate {} {
global lastTrap
if {![string length [checkRunning QuickViewェ ALTV tassPath]]} return
set text {}
catch {set text [getSelect]}
if {![string length $text]} {
if {[catch {prompt "Trap name:" $lastTrap} text]} return
}
set lastTrap $text
set res [AEBuild -r {'ALTV'} DanR {TMPL} "----" "メ$textモ"]
regexp {メ.*モ} $res one
alertnote [string trim $one {メモ}]
}
proc lookupTBTrap {} {
global lastTrap
if {![string length [checkRunning QuickViewェ ALTV tassPath]]} return
set text {}
catch {set text [getSelect]}
if {![string length $text]} {
if {[catch {prompt "Trap name:" $lastTrap} text]} return
}
set lastTrap $text
AEBuild {'ALTV'} DanR {REF } "----" "メ$textモ"
}
proc gotoTBReference {} {
catch {switchTo [checkRunning QuickViewェ ALTV tassPath]}
}